home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / MATH / FSULTRA1.ZIP / ULTRAFX.PAS < prev    next >
Pascal/Delphi Source File  |  1992-06-01  |  2KB  |  83 lines
  1. { 
  2. ULTRA        The greatest random number generator that ever was
  3.         or ever will be.  Way beyond Super-Duper.
  4.         (Just kidding, but we think its a good one.)
  5.  
  6. Authors:    Arif Zaman (arif@stat.fsu.edu) and
  7.         George Marsaglia (geo@stat.fsu.edu).
  8.  
  9. Date:        27 May 1992
  10.  
  11. Version:    1.05
  12.  
  13. Copyright:    To obtain permission to incorporate this program into
  14.         any commercial product, please contact the authors at
  15.         the e-mail address given above or at
  16.  
  17.         Department of Statistics and
  18.         Supercomputer Computations Research Institute
  19.         Florida State University
  20.         Tallahassee, FL 32306.
  21.  
  22. See Also:    README        for a brief description
  23.         ULTRA.DOC    for a detailed description
  24.  
  25. -----------------------------------------------------------------------
  26. } 
  27. {
  28.   File: ULTRATPU.PAS (Program to make a .TPU file)
  29. }
  30. {$IFDEF x}            unit ultrax;
  31. {$ELSE} {$IFDEF f}        unit ultraf;
  32.     {$ELSE}    {$IFDEF fx}    unit ultrafx;
  33.         {$ELSE}        unit ultra;
  34. {$ENDIF}{$ENDIF}{$ENDIF}
  35.  
  36. interface
  37.  
  38. Function i32bit : LongInt;
  39. Function i31bit : LongInt;
  40. Function i16bit : Integer;    { You can declare this to be Word }
  41. Function i15bit : Integer;
  42. Function i8bit  : ShortInt;    { You can declare this to be Byte }
  43. Function i7bit  : ShortInt;
  44. Function i1bit  : Boolean;
  45. Function uni    : Single;
  46. Function vni    : Single;
  47. Function duni   : Double;
  48. Function dvni   : Double;
  49. Procedure rinit(x,y : LongInt);
  50.  
  51. implementation
  52.  
  53. type cp  = record c: Integer; p: Pointer; x: Array [0..36] of LongInt; end;
  54.  
  55. var    SWBstate: Array [0..4*sizeof(cp)+37] of byte;
  56.     tmpq    : Comp;
  57.  
  58. const    neg31    : Integer = -31;
  59.     neg63    : Integer = -63;
  60.     SWBsize : Integer = sizeof(SWBstate);
  61.  
  62. Function i32bit : LongInt;   external;
  63. Function i31bit : LongInt;   external;
  64. Function i16bit : Integer;   external;
  65. Function i15bit : Integer;   external;
  66. Function i8bit  : ShortInt;  external;
  67. Function i7bit  : ShortInt;  external;
  68. Function i1bit  : Boolean;   external;
  69. Function uni    : Single;    external;
  70. Function vni    : Single;    external;
  71. Function duni   : Double;    external;
  72. Function dvni   : Double;    external;
  73. Procedure rinit(x,y : LongInt);  external;
  74.  
  75. {$IFDEF x}            {$L ultrx_tp.obj}
  76. {$ELSE}    {$IFDEF f}        {$L ultrf_tp.obj}
  77.     {$ELSE}    {$IFDEF fx}    {$L ultfx_tp.obj}
  78.         {$ELSE}        {$L ultra_tp.obj}
  79. {$ENDIF}{$ENDIF}{$ENDIF}
  80.  
  81. begin rinit(1234567,7654321);
  82. end.
  83.